home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / t_os / m_supot / fm_rnd.bas next >
BASIC Source File  |  1994-06-01  |  818b  |  22 lines
  1. 1000 CLS:DIM FM%(23),DT$(25):ON ERROR GOTO *ER
  2. 1010 ADR=VARPTR(FM%(0))
  3. 1020 INPUT "HOW MANY WANT YOU MAKING A TONE? (1-128) [ 0･･END] ",N
  4. 1030 IF N=0 THEN CLS:SYSTEM
  5. 1040 IF N>128 THEN GOTO 1020
  6. 1050 FOR I=1 TO N
  7. 1060 NM$="RND_"+STR$(I):NM$=NM$+SPACE$(8-LEN(NM$))
  8. 1070 FOR A=0 TO 7
  9. 1080 DD$=HEX$(ASC(MID$(NM$,A+1,1)))
  10. 1090 POKE ADR+A,VAL("&H"+DD$)
  11. 1100 NEXT A
  12. 1110 FOR A=8 TO 33
  13. 1120 RANDOMIZE TIME
  14. 1130 B=A-8:DT$(B)=STR$(INT(RND(TIME)*&H100))
  15. 1140 POKE ADR+A,VAL("&H"+DT$(B))
  16. 1150 NEXT A
  17. 1160 VOICE I,FM%:GG$="NO."+STR$(I)+" IS PASSED･･･.":LOCATE 0,1:PRINT GG$
  18. 1170 NEXT I:INPUT "SAVE-FILE NAME?(DRIVE:A)(DIR\)(NEED NOT .FMB)",NAM$
  19. 1180 SAVE@"A:"+NAM$+".FMB":CLS:GOTO 1020
  20. 1190 *ER BEEP:IF ERR=64 THEN KILL "A:"+NAM$+".FMB":RESUME 1180
  21. 1200 PRINT "ERROR IS HAPPEND! DO AGAIN PLEASE.":RESUME 1020
  22.